data<-read.table("/data4/bsi/bioinf_ext1/s113890.senescence/link1/E-GEOD-11954/rma.txt",sep="\t",head=T)
rownames(data)<-data[,1]
data<-data[,2:ncol(data)]
#reading the negative id.s
ids<-read.table("/data4/bsi/bioinf_ext1/s113890.senescence/Potential_Negative_converted_ids.txt",sep="\t",head=T)
id.2col<-as.vector(tolower(ids[,2]))
row.id<-as.vector(tolower(rownames(data)))
idx<-intersect(id.2col, row.id)
nega<-data[idx,]
write.exprs(nega, "negative.txt", sep="\t")
